home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tptc17sc.zip / FTOA.INC < prev    next >
Text File  |  1988-03-25  |  189b  |  16 lines
  1.  
  2. (*
  3.  * convert floating to ascii
  4.  *
  5.  *)
  6.  
  7. function ftoa(f: real; width,dec: integer): anystring;
  8. var
  9.    buf: anystring;
  10. begin
  11.    str(f:width:dec,buf);
  12.    ftoa := buf;
  13. end;
  14.  
  15.  
  16.